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TSMIO: 



. TITLE TSMIO — TSX-Plus Mapped I/O Support 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSMIO 

. RAD50 /MIO/ i Overlay region id 



TSMIO is the TSX-Plus system overlay that contains the routines 
used to perform mapped I/O operations for devices with IS-bit 
controllers running on 22-bit Q~bus systems. 

Copyright (c) 1983, 1984. 
S&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved. 

Global definitions 

. GLOBL MIDCHK 

Global references 

. GLOBL Q. FUNC, VPAR6, Q COMP, Q. CSW, GETSYQ, Q BUFF 

. GLOBL MIOMWT, MIOMRD, Q. WCNT, Q. DEVX, lOQSIZ 

. GLOBL DVSTAT, DS*ID, SYQIO, Q. PAR, VMIOSZ, S*QMIO, QNSPNX, CHKABT 

. GLOBL CORUSR, UREGO, Q. BLKN, Q. JOB, Q. JNUM, PSW, INTPRI, lOCMPL 

. GLOBL DI*DY, DI*MM, DI*MS, MIOBHD, MI*LNK, Q. CHAN, MI*SBP 

. GLOBL MI*TRW, MI*OQE, MI*RWF, MI*UBP, MI*UBO, MI*CWC, MI*JOB 

. GLOBL C. CSW, CS*ERR, CS*EOF, DI*MT, DI*DX, MIODBG 

. GLOBL Q. FLAG, QF*MIO, QF*OWC, EM$MIO 

. GLOBL MIOWHD, MIOSYQ, MW*LNK, MW*IOQ, Q. UCSW 

Macro definitions 

Macro to disable device interrupts 

. MACRO DISABL 
BIS #340, e#psw 
. ENDM DISABL 

Macro to enable interrupts 

. MACRO ENABL 

BIC INTPRI, e#PSW 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print. 
ARG = (Optional) argument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 

.MACRO DIE MSG, ARG 

MOV MSG, e#DIEMSG 

. IF NB, ARG 

MOV ARG, e#DIEARG 
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132761 
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005720 
020027 
103771 



. SBTTL MIOCHK — Determine if I/O operation should be mapped 

MIOCHK is called whenever an I/O operation is about to be queued 

for an 18-bit device that may potentially need mapping. 

MIOCHK checks to see if the operation is a Read or Write request that 

needs mapping and checks to see if the user's buffer is already 

in the lou» 24SK memory area. 

Inputs: 
Rl = Address of I/O queue element. 

Outputs: 
C-flag cleared ==> Don't need to do mappingi queue request normally. 
C-flag set ==> Must map operation; don't queue current request. 



MIOCHK: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2i-<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<SP> 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOC 
177400 



000310 



1*: 



J*: 



000450 ' 



See if me are reentering MIOCHK with a queue element that has 
already been worked on by MIOCHK 

BITB #QF*MIO, Q. FLAG (Rl ); Has this I/O operation already been mapped? 
BNE NOMAP i Br if yes 

Get device index number 

MOVE Q. DEVX<R1 )* R2 i Get device index number 

BEQ NOMAP i Br if this operation has been cancelled 

Determine if a . SPFUN is being queued 

MOVB Q. FUNC<R1)>R3 > Is this a .SPFUN operation? 
BEQ 3* iBr if not 

This is a .SPFUN operation. 

Check to see if this operation must be treated specially. 

Get device status flags 

Clear all but device id 

Clear sign extension of special fun code 

Put special function code in high order 

Combine function code with device id 

Get pointer to device/function table 

Try to find device-id/function-code combo 

Br if this is not it 

Enter special processing routine 

Point to next table entry 

Checked all entries? 

Loop if not 



MOV 


DVSTAT(R2>- 


R4 


BIC 


#-^C<DS*ID>, 


R4 


BIC 


#^C377, R3 




SWAB 


R3 




BIS 


R3, R4 




MOV 


#DEVTBL, RO 




CMP 


R4, <R0)+ 




BNE 


2« 




JMP 


@(R0)+ 




TST 


(R0) + 




CMP 


RO, #DEVEND 




BLO 


1* 





We don't recognize the .SPFUN 
device-dependent processing. 
Treat . SPFUN 376 as a write and 



code as one that requires special 
377 as read. 
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103 

104 

105 

106 

107 
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109 

110 

111 

112 
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000102 
000104 
000110 
000112 
000116 



000120 
000124 
000126 
000130 

000134 
000142 



000146 
000152 
000154 



000156 
000160 
000164 



000166 
000172 
000176 



000200 
000204 
000210 
000214 
000220 
000224 
000226 
000232 
000236 
000240 
000244 
000246 
000252 



000303 
120327 
001426 
120327 
001417 



120327 
001007 
005003 
012702 
152761 
000416 



000144 000452 



005761 
002405 
001446 



005003 
016102 
000405 



012703 
016102 

005402 



016105 
162705 
062705 
072527 
066105 
010200 
062700 
072027 
060005 
005727 
001003 
020527 
101407 



000376 
000377 



000373 



000001 
0000000 



OOOOOOG 



OOOOOOG 



000001 
OOOOOOG 



OOOOOOG 

OOOOOOG 

000077 

177772 

OOOOOOG 

000037 
177773 

OOOOOOG 

007600 



SWAB 

CMPB 

BEQ 

CMPB 

BEQ 



R3 

R3, #376 

WRTFUN 

R3, #377 

RDFUN 



J Get back function code 

i Is th is a write? 

/Br if yes 

i Is th is a read? 

; Br if yes 



Treat . SPFUN 373 as a request to get the device size 



OOOOOOG 



CMPB 

BNE 

CLR 

MOV 

BISB 

BR 



R3, #373 

4* 

R3 

#1.R2 



/Request to get device size? 
J Br if not 

iSay this is a read operation 
; Say 1 word is being read 



#QF*OWC/ Q. FLAG<R1 ) > Set flag saying to use original mord count 
CHKBUF /Process the operation 



4* 



This special function can be processed without mapping 

BR NOMAP /No mapping required 

This is not a .SPFUN request. 

Determine if it is a .READ/ .WRITE/ or (.SEEK) 



3*: 



TST Q. WCNT(Rl) 
BLT WRTFUN 
BEQ NOMAP 

This is a read request 



RDFUN: CLR R3 

MOV Q. WCNT<R1)/R2 
BR CHKBUF 

This is a write request 



; Read/Write/Seek? 

; Br if write operation 

/ Seek operation 



/ Set read flag 

/ Get word count for read 



WRTFUN: MOV 
MOV 
NEG 



#1/R3 

Q. WCNT<R1)/R2 

R2 



/ Set write flag 
/ Get word count 
/Stored negative to signal write 



At this point we have determined that data is going to be read 
or written and have the positive word count in R2. 
Check to see if the buffer is entirely below 256Kb. 

Get user's buffer virtual address 

Remove virtual buffer bias 

Bound up to next 64-byte block 

Convert address of 64-bytB block # 

Add base 64-byte block # 

Get word count 

Bound up to 64-byte block size 

Convert to # 64-byte blocks 

Compute 64-byte block # of top of buffer 

Are we to map all operations? 

Br if yes 

Is buffer entirely below 248Kb? 

Br if yes — Mapping not needed 

We must do buffer mapping for this I/O operation 



CHKBUF: MOV 


Q. BUFF(R1)/R5 


SUB 


#VPAR6/ R5 


ADD 


#63. / R5 


ASH 


#-6. / R5 


ADD 


Q. PAR(Rl)/ R5 


MOV 


R2/R0 


ADD 


#31. ,R0 


ASH 


#-5. / RO 


ADD 


RO, R5 


TST 


#MIODBG 


BNE 


1* 


CMP 


R5/ #3968. 


BLOS 


NOMAP 
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— Determine if I/O operation should be mapped 



Get a mapped I/O buffer and control block. 



000254 004737 001434' 
000260 103405 



000262 004737 000570 
000266 000261 
000270 000401 



000272 000241 



000274 012605 

000276 012604 

000300 012603 

000302 012602 

000304 012601 

000306 000207 



1*: 



CALL 
BCS 



MIDGET 
MIOXIT 



; Get mapping buffer and control block 

i Br if mapping deferred till buffer freed 



Initiate a mapped I/O operation 

MIOBON 

MIOXIT 
We do not have to do buffer mapping 



CALL 

SEC 

BR 



J Initiate the mapping 

i Indicate that mapping mas needed 

} Finished 



NOMAP: CLC 
i Finished 

i 

MIOXIT 



Indicate mapping not needed 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+. R5 
(SP)+, R4 
<SP)+, R3 
(SP)+, R2 
(SP)+, Rl 
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000310 
000310 
000314 
000320 

000324 
000330 
000334 
000340 
000344 
000350 

000354 
000360 
000364 
000370 
000374 
000400 

000404 
000410 
000414 
000420 
000424 
000430 

000434 
000440 
000444 
000450 



000450 
000454 
000456 
000464 



000470 
000474 
000500 
000506 



Table of special function codes for certain devices. 

. MACRO SPFUN DEV> FUN, RTN 

. BYTE DEV, FUN 

. WORD RTN 

. ENDM SPFUN 

Define those devices which have specific .SPFUN functions that 
require special processing. 



DEVTBL: 



SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 
SPFUN 

SPFUN 
SPFUN 
SPFUN 



DI*DY, 377. DYREAD 
DI*DY, 376-DYWRIT 
DI*DY, 375, DYWRIT 



DI*MT, 377. 
DI«MT. 376. 
DI*MT, 374. 
DI*MT, 373. 
DI*MT, 371, 
DI*MT, 370, 



CLRADR 
CLRADR 
WRTFUN 
CLRADR 
WRTFUN 
RDFUN 



DI*MM, 
DI*MM, 
DI*MM, 
DI*MM, 
DI«MM, 
DI*MM, 

DI*MS, 
DI*MS, 
DI*MS, 
DI*MS, 
DI*MS, 
DI*MS, 



377, CLRADR 
376, CLRADR 
374, WRTFUN 

373, CLRADR 
371, WRTFUN 

370, RDFUN 

377, CLRADR 
376, CLRADR 

374, WRTFUN 
373, CLRADR 

371, WRTFUN 
370, RDFUN 



DI*DX. 377, DXREAD 
DI«DX,376, DXWRIT 
DI*DX,375, DXWRIT 



DY 377 
DY 376 - 
DY 375 — 

MT 377 — 
MT 376 — 
MT 374 — 
MT 373 — 
MT 371 — 
MT 370 — 

MM 377 — 
MM 376 — 
MM 374 — 
MM 373 — 
MM 371 — 
MM 370 — 

MS 377 — 
MS 376 — 
MS 374 — 
MS 373 — 
MS 371 — 
MS 370 — 

DX 377 -- 
DX 376 — 
DX 375 -- 



Read 129 uiord sector 
- Write 129 uiord sector 
Write 129 word sector & 



del 



gap 



gap 



DEVEND: 



Write EOF 

Forward one block 

Write with extended 

Rewind 

Write 

Read 

Write EOF 

Forward one block 

Write with extended 

Rewind 

Write 

Read 

Write EOF 

Forward one block 

Write with extended 

Rewind 

Write 

Read 



Read 65 word sector 
Write 65 word sector 
Write 65 word sector & del 



gap 



DY 377 — Read 129 words 



012702 
005003 
152761 
000137 



012702 
012703 
152761 
000137 



000201 

OOOOOOG 
000200 ' 



000201 
000001 
OOOOOOG 
000200 ' 



DYREAD: 



OOOOOOG 



MOV 
CLR 
BISB 
JMP 



DY 375/376 



#129. , R2 ; Set word count 

R3 ;Set read flag 

#QF*OWC, Q. FLAG<R1) i Set flag saying to use original word count 

CHKBUF i Process the operation 

- Write 129 words 



DYWRIT: 



OOOOOOG 



MOV 
MOV 
BISB 
JMP 



#129. , R2 i Set word count 
#1,R3 iSet write flag 

#QF*OWC,Q. FLAG(Rl) i Set flag saying to 
CHKBUF i Process the operation 



use original word count 



DX 377 — Read 65 words 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

73 
74 
75 



000512 
000516 
000520 
000526 



000532 
000536 
000542 
000550 



000554 
000560 
000564 



012702 
005003 
152761 
000137 



012702 
012703 
152761 
000137 



005061 
005061 
000137 



000101 DXREAD; MOV 

CLR 
OOOOOOG 0000000 BISD 

000200 ' JMP 



#65. J R2 ; Get word count 

R3 i Set read flag 

#QF$OWC# G- FLAG<R1 ) ; Set flag saying to use original uiord count 

CHKBUF /Process the operation 



DX 375/376 — Write 65 words 



000101 DXWRIT: MOV 

000001 MOV 

OOOOOOG OOOOOOG BISB 

000200 ' JMP 



j Get word count 
; Set write flag 



#65. , R2 

#1, R3 

#QF*OWC, Q. FLAG<R1 ) > Set flag saying to use original word count 

CHKBUF i Process the operation 



Clear buffer address for operations which do not require actual I/O. 



OOOOOOG 
OOOOOOG 
000272 ' 



CLRADR: CLR 

CLR 
JMP 



Q. BUFF<R1> 
Q. PAR<R1) 
NOMAP 



i Clear unused buffer address 

; and PAR value 

iExit indicating no mapping needed 
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10 








11 


000570 


010246 




12 


000572 


010346 




13 








14 








15 








16 


000574 


010165 


OOOOOOG 


17 


000600 


010265 


OOOOOOG 


IS 


000604 


110365 


OOOOOOG 


19 


000610 


016102 


OOOOOOG 


20 


000614 


162702 


OOOOOOG 


21 


000620 


005003 




22 


000622 


073227 


177772 


23 


000626 


066102 


OOOOOOG 


24 


000632 


010265 


OOOOOOG 


25 


000636 


000303 




26 


000640 


072327 


177776 


27 


000644 


010365 


OOOOOOG 


28 








29 








30 








31 


000650 


105765 


OOOOOOG 


32 


000654 


001403 




33 


000656 


004737 


000676 ' 


34 


000662 


000402 




35 


000664 


004737 


001026' 


36 








37 








38 








39 


000670 


012603 




40 


000672 


012602 




41 


000674 


000207 





. SBTTL MIOBGN — Initiate a mapped I/O operation 

MIOBGN is called to initiate a mapped I/O operation. 

Inputs: 
Rl = Address of original I/O queue element. 
R2 = Actual word count. 
R3 = 0==>Read; l==>Write 
R5 = Address of mapped I/O control block 



MIOBGN: MOV 
MOV 



R2, -<SP) 
R3. -<SP) 



Set up information in the control block about this transfer, 

/Save address of original queue element 

; Total number of mords to transfer 

; Set read/mrite flag (0=read. l=u>r ite > 

i Get virtual address of user's buffer 

; Remove virtual buffer bias 

/Clear for shift 

/Convert address to 64-byte blk # & offset 

jAdd base 64-byte block number 

iThis is the 64-byte block # of buffer base 

/Get byte within block to low-order of R5 

J Save offset within 64-byte block 

Initiate the mapped I/O transfer 

/Read or write operation? 

/Br if read 

/Start a mapped write 



MOV 


R1/MI*0QE<R5) 


MOV 


R2/MI*TRW<R5) 


MOVB 


R3, MI*RWF(R5) 


MOV 


Q. BUFF(R1)/R2 


SUB 


#VPAR6, R2 


CLR 


R3 


ASHC 


#-6. , R2 


ADD 


Q. PAR<R1), R2 


MOV 


R2, MI*UBP<R5) 


SWAB 


R3 


ASH 


#-2/ R3 


MOV 


R3/MI*UB0(R5) 



1*: 



9*: 



TSTB 


MI*RWF<R5) 


BEQ 


1« 


CALL 


MIOWRT 


BR 


9* 


CALL 


MIORD 


Finished 




MOV 


(SP)+/R3 


MOV 


(SP)+/R2 


RETURN 





/Start a mapped read 
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— Perform mapped write operation 



. SBTTL MIOWRT 



Perform mapped write operation 



MIOWRT is called to perform a mapped write operation. 

It writes as much data as will fit in the mapped I/O buffer and then 

allows a completion routine call to continue the write. 



Inputs: 
R5 = Pointer to mapped I/O control block. 



000676 010146 
000700 010246 



000702 016502 000000© 

000706 1 1 3700 OOOOOOG 

000712 000300 

000714 020200 

000716 101401 

000720 010002 

010265 OOOOOOG 



000726 004737 OOOOOOG 



000732 004737 001200' 

000736 012761 000762' OOOOOOG 



000744 004737 001334' 



000750 004737 0000006 



000754 012602 
000756 012601 
000760 000207 



MIOWRT: MOV 


Rl, -(SP) 


MOV 


R2, -(SP) 


1 

i Determine 


how much data to 


1 

MOV 


MI*TRW(R5)>R2 


MOVE 


VMIOSZ, RO 


SWAB 


RO 


CMP 


R2, RO 


BLOS 


1« 


MOV 


RO, R2 


1*: MOV 


R2, MI*CWC(R5) 



Get total number of words left to write 

Get # blocks allocated for buffer 

Convert to # words 

Is request larger than buffer? 

Br if not 

Write only as much as buffer can hold 

Set current word count in control block 

Move data from user's buffer to the map buffer 

CALL MIOMWT i Move data to map buffer 

Set up an I/O queue element for the mapped write 

CALL MIOGTQ J Get a queue element 

MOV #MIOWRC, Q. C0MP(R1 ) ; Set address of completion routine 

Update the user's buffer address and remaining word count 
CALL MIOADV i Advance buffer address 

Initiate the mapped write 

CALL SYQIO i Start the write from the mapped buffer 

Finished 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R2 
( SP ) +, R 1 



c 
I 
c 
i 

I 
i 
I 

c 
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■ Mapped write completion routine 



. SBTTL MIOWRC — Mapped write completion routine 
MIOWRC is called as a completion routine to a mapped write operation. 

Inputs: 
Rl = Address of mapped I/O control block. 



000762 010105 



MIOWRC: MOV 



R1,R5 



; Get address of mapped I/O control block 



If end of file or hardware error was reported by handler> 
terminate the I/O operation. 



000764 016500 OOOOOOG 

000770 016000 0000000 

000774 032760 OOOOOOC OOOOOOG 

001002 001006 



001004 005765 OOOOOOG 
001010 001403 



001012 004737 000676 
001016 000402 



001020 004737 001156 



001024 000207 



MOV 
MOV 
BIT 
BNE 



MI*aQE<R5)* RO * Get address of original queue element 
Q. CSW(RO),RO iGet address of channel block 
#<CS*EOF!CS*ERR>, C. CSW(RO) ; End of file or hardware error? 
1* iBr if yes — Terminate the transfer 



See if there is any more data remaining to be written 



TST MI«TRW(R5) 
BEQ 1$ 



i Any data left to write? 
i Br if not 



There is data left to be written. 
Initiate another write. 



CALL 
BR 



MIOWRT 
9* 



i There is no data left. 
J Terminate the write. 

1*: CALL MIOFIN 

Finished 

9*: RETURN 



i Start another mapped write 



; Entire I/O operation is finished 



I 
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I 
( 

( 
< 

i 
i 

C 
i 
i 
€ 
I 
i 

i 



' I 
c 

I 

c 



I 

f 



TSMIO — TSX-Plus Mapped I/O Su MACRO V05. 05 Wednesday 18-Jan-S9 14: 15 Page 7 
MIORD — Initiate a mapped read operation 



. SBTTL MIORD 



Initiate a mapped read operation 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



MIORD is called to initiate a mapped read operation. 

It reads as many ujords as tuill fit in the mapping buffer and 

a completion routine to finish the operation. 



Inputs: 
R5 = Address of mapped I/O control block, 



001026 010146 
001030 010246 



001 032 016502 0000000 

001036 113700 OOOOOOG 

001042 000300 

001044 020200 

001046 101401 

001050 010002 

001052 010265 OOOOOOG 



001056 004737 001200' 

001062 012761 001102' OOOOOOG 



001070 004737 OOOOOOG 



001074 012602 
001076 012601 
001100 000207 



MIORD: 



MOV 
MOV 



Rl, =-(SP) 
R2, -<SP) 



Determine how much data to read this time 



1*: 



MOV 


MI*TRW(R5>,R2 


MOVE 


VMIOSZ, RO 


SWAB 


RO 


CMP 


R2, RO 


BLOS 


1« 


MOV 


RO, R2 


MOV 


R2, MI*CWC<R5) 



Get an I/O queue element 



CALL 
MOV 



MIOGTQ 



; Get number of words remaining to be read 

; Get # blocks allocated for buffer 

i Convert to # uiords 

; Can uie read all that is left? 

i Br if yes 

; No — Truncate to mapping buffer size 

i Set current word count in control block 



; Get an I/O queue element 



#MIORDCi Q. C0MP<R1 ) ; Set address of read completion routine 
Initiate the read 

j Start the read operation 



CALL 


SYQIO 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





TSMIO — 
MIORDC - 
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- Mapped read completion routine 



SB" 



MIORDC 



Mapped read completion routine 



001102 010105 



001104 004737 OOOOOOG 



001110 016500 OOOOOOG 

001114 016000 OOOOOOG 

001120 032760 OOOOOOC OOOOOOG 

001126 001010 



00 1 1 30 004737 00 1 334 ' 



001134 005765 OOOOOOG 
001140 001403 



00 1 1 42 004737 00 1 026 ' 
001146 000402 



001150 004737 001156' 



MIORDC is called as a completion routine when a mapped read operation 
finishes. It moves the data that tuas read into the mapped buffer to the 
user's buffer and then checks to see if more data needs to be read. 

Inputs: 
Rl = Address of mapped I/O control block 

MIORDC: MOV R1,R5 ; Get address of mapped I/O control block 

Move data from system buffer to user's buffer 

CALL MIOMRD i Move data to user's buffer 

If end of file or hardware error was reported by handler> 
terminate the I/O operation. 

MOV MI*0QE<R5)» RO ; Get address of original queue element 

MOV Q. CSW(RO),RO i Get address of channel block 

BIT #<CS*EDF!CS*ERR>- C. CSW<RO) J End of file or hardware error? 

BNE 1* i Br if yes — Terminate the transfer 

Advance user's buffer pointer 

CALL MIOADV » Advance user's buffer pointer 

See if there is more data remaining to be read 



TST MI*TRW<R5) 
BEQ 1$ 



i Is there more data to be read? 
J Br if not 



Initiate another mapped read operation 

i Start another mapped read 



CALL 
BR 



MIORD 
9* 



001154 000207 



The I/O operation is complete 
1*: CALL MIOFIN i Say I/O operation is finished 

Finished 
9*: RETURN 
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■ Completion of a mapped I/O operation 



001156 010446 



001160 016504 OOOOOOG 



001164 004737 001606 



001170 004737 OOOOOOG 



001174 012604 
001176 000207 



. 3BTTL iilOFiN — Completion of a mapped I/O operation 

MIOFIN is called when a mapped I/O operation is completed. 

Inputs: 
R5 = Pointer to mapped I/O control block. 

MIOFIN: MOV R4, -(SP) 

Get address of original I/O queue element. 

MOV MI*0QE<R5), R4 -Get address of original I/O queue element 
Free the mapped I/O data buffer and control block 

CALL MIOFRE ; Say mapped I/O is finished 

Do completion processing for original queue element 

CALL lOCMPL J Do I/O completion 

Finished 

MOV <SF)+, R4 
RETURN 
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TSMIO — TSX-Plus Mapped I/O Su 
MIOGTQ — Get I/O queue element 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 001200 010346 

15 001202 010446 
16 

17 
18 

19 001204 016504 OOOOOOG 

20 001210 016401 OOOOOOG 

21 001214 004737 OOOOOOG 
22 

23 
24 

25 001220 010103 

26 001222 012700 OOOOOOC 

27 001226 012423 

28 001230 077002 
29 

30 
31 
32 

33 001232 105061 OOOOOOG 

34 001236 142761 000370 
35 

36 

37 

38 

39 001244 

40 

41 

42 

43 

44 

45 

46 001252 

47 

48 

49 

50 001256 016504 OOOOOOG 

51 001262 132764 OOOOOOG 

52 001270 001010 

53 001272 016500 OOOOOOG 

54 001276 005764 OOOOOOG 

55 001302 002001 

56 001304 005400 

57 001306 010061 OOOOOOG 
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for mapped I/O operation 

. SBTTL MIOGTQ — Get I/O queue element for mapped I/O operation 

MIOGTQ is called to get an I/O queue element to use for a mapped 
I/O operation. In addition to getting a free queue element* this 
routine also sets up the uiord count and copies other information 
from the original queue element. 

Inputs: 
R5 = Pointer to mapped I/O control block. 

Outputs: 
Ri = Address of queue element. 



MIOGTQ: MOV 
MOV 



R3, -(SP> 
R4, -<SP) 



Get a free I/O queue element 

MOV MI*0QE<R5),R4 
MOV Q. UCSW<R4),R1 
CALL GETSYQ 



J Get address of original queue element 

j Get address of channel block 

i Get a free I/O queue element for system use 



Copy information from original queue element to neu» queue element 



1$: 



MOV R1,R3 

MOV #I0QSIZ/2, RO 

MOV (R4)+,. (R3) + 

SOB RO, 1* 



; Get address of new queue element 

; Get # uiords to copy 

fCopy contents of old queue element to new 



OOOOOOG 



Clear job number field of I/O queue so completion routine will 
run in system state. 

CLRB Q. JOB(Rl) ; Set job number = 
BICB #370, Q. JNUM<R1) i Set job number = 

Set control flag in I/O queue element indicating that this I/O 
operation is a secondary operation for mapped I/O. 



152761 OOOOOOG OOOOOOG 



BISB 



#QF*MIO/ Q. FLAG(R1 ) i Secondary op for mapped I/O 



Store the address of the mapped I/O control block into the cell of 
the I/O queue element normally used for the channel number. 
This will cause the address of the mapped I/O control block to be 
passed to the completion routine in Rl. 



010561 OOOOOOG 



MOV R5, Q. CHAN(Rl) 

Store actual word count 



iSet address of control block as "channel #" 



OOOOOOG 



>*: 



MOV MI*0QE<R5), R4 i Get pointer to original Q element 

BITB #QF*OWC, Q. FLAG<R4) i Should we always use original word count? 

BNE 3* iBr if yes 

MOV MI*CWC<R5), RO i Get current word count for this transfer 

TST Q. WCNT<R4) ;Was original count positive or negative? 

BGE 2* ; Br if positive 

NEG RO iMake count negative 

MOV RO, Q. WCNT<Ri ) i Set word count in queue element 
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MIOGTQ — Get I/O queue element for mapped I/O operation 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



Set the buffer address 



001312 
001320 



012761 
016561 



OOOOOOG OOOOOOG 3*: 
OOOOOOG OOOOOOG 



MOV 
MOV 

Finished 



001326 012604 
001330 012603 
001332 000207 



MOV 
MOV 
RETURN 



#VPAR6, Q. BUFF(R1 )J Set buffer virtual address 

MI*SBP(R5)> Q. PAR(R1 ) ; Set 64-byte block number of buffer base 



(SP)+, R4 
(SP)+, R3 
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- Advance buffer address and word count 



001334 010246 
001336 010346 



001340 016502 OOOOOOG 

001344 006302 

001346 066502 0000000 

001352 005003 

001354 073227 177772 

001360 060265 OOOOOOG 

001364 000303 

001366 072327 177776 

001372 010365 OOOOOOG 



001376 016502 OOOOOOG 
001402 160265 OOOOOOG 



001406 062702 000377 

001412 072227 177770 

001416 016500 OOOOOOG 

001422 060260 OOOOOOG 



001426 012603 
001430 012602 
001432 000207 



. SBTTL MIOADV 



Advance buffer addrei 



and word count 



MIOADV is called to update the buffer address and word count following 
a mapped I/O operation. 



Inputs: 
R5 = Pointer to mapped I/O control block. 



MIOADV: MOV 
MOV 



R2, -<SP) 

R3, -(SP) 



Advance buffer address 

i Get # words transferred this time 

I Convert to # bytes 

J Compute new buffer offset 

; Clear for shift 

; Compute # 64-byte blocks & offset 

; Update 64~byte block base 

; Get offset to low-order of R5 

i New offset within 64-byte block 

Decrease number of words left to transfer 



MOV 


MI*CWC(R5),R2 


ASL 


R2 


ADD 


MI*UB0<R5),R2 


CLR 


R3 


ASHC 


#-6. . R2 


ADD 


R2, MI*UBP(R5) 


SMAB 


R3 


ASH 


#-2, R3 


MOV 


R3, MI*UB0<R5> 



MOV MI*CWC<R5),R2 
SUB R2, MI*TRW<R5) 

Advance file block number 



ADD 
ASH 
MOV 
ADD 

Finished 



MOV 
MOV 
RETURN 



#255. , R2 
#-S. , R2 
MI*0QE(R5),R0 
R2, Q. BLKN<RO) 



<SP)+. R3 
(SP)+, R2 



i Get number of words transferred 
•Decrease number of words left 



; Convert # words to # blocks 

iGet pointer to original queue element 
; Advance block number 
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data buffer 



SBTTL MIDGET 



Allocate a mapped I/u data buffer 



001434 010346 



MIDGET is called to gain exclusive access to the I/O mapping data base. 

Inputs: 
Rl = Address of I/O queue element 

Outputs: 
R5 = Address of mapped I/O control block 
C-flag set ==> Could not get a mapping buffer. 

Mapping request has been queued for later. 

MIDGET: MOV R3, -<SP) 

Get number of job that wants to do mapped I/O 



001436 
001442 



001444 
001452 
001456 



116103 
006303 



OOOOOOG 



MOVB Q. J0B<R1),R3 
ASL R3 



; Get job number 

^Convert to job index number 



See if there is a mapped I/O control block and data buffer available 



1*: 



013705 
001040 



OOOOOOG 



DISABL 

MOV MIOBHD, R5 

BNE 2* 



;; Disable interrupts 

; ; Is there a free buffer available? 
; ; Br if yes 



There are no free mapping buffers. 
Wait until one becomes free. 



001460 
001462 



005703 
001027 



TST 
BNE 



R3 
3* 



i ; i Is system or user job doing I/O? 
) } i Br if user job 



System is trying to do mapped I/O. 

Queue a request for a mapping buffer and then return with 

the C-flag set indicating that the operation has been deferred. 



001464 
001470 
001472 
001504 
001512 
001516 
001524 
001530 
001536 
001540 



001542 
001546 
001552 
001556 



013700 
001005 

016037 
010160 
013760 
010037 

000261 
000420 



012700 
004737 
004737 
000732 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 4*: 
OOOOOOG 



MOV 

BNE 

DIE 

MOV 

MOV 

MOV 

MOV 

ENABL 

SEC 

BR 



MIOWHD, RO 

4* 

#EM*MIO 

MW*LNK(RO), MIOWHD 

R1,MW*I0Q<R0) ii 

MIOSYQ, MW*LNK<RO) 

RO, MIOSYQ 



Get address of free queue block 
We better get one 
Die if we cannot queue request 
i J Remove block from free list 
Save address of I/O queue element 
i i Put wait block on active list 



Enable interrupts 

Signal that operation is to be deferred 



9* 



Suspend a job until mapping data becomes free 



OOOOOOG 
OOOOOOG 
OOOOOOG 



3*: MOV #S«QMIO, RO 

CALL QNSPNX 

CALL CHKABT 

BR 1* 



i i 



; Waiting for mapped I/O 

{Suspend job till mapping is free (Enable) 
Was job aborted while it was asleep? 
Go try to get the data base now 



There is a free mapping buffer. 
Claim it for our job. 



001560 016537 OOOOOOG OOOOOOG 2*: 



MOV 



MI*LNK(R5>, MIDBHDi ; i Remove control block from free list 
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MIDGET — Allocate a mapped I/O data buffer 

58 001566 ENABL ; Enable interrupts 

59 001574 110365 0000000 MOVE R3, MI*JOB <R5) ; Save associated job number 

60 001600 000241 CLC ; Signal success on return 

61 ; 

62 i Finished 

63 i 

64 001602 012603 9*: MOV <SP)+, R3 

65 001604 000207 RETURN 
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MIOFRE — Free a mapped I/O data buffer. 



I 
2 
3 
4 
5 
6 
7 

8 001606 010146 

9 001610 
10 

11 
12 

13 001616 013765 0000000 OOOOOOG 

14 001624 010537 OOOOOOG 
15 

16 
17 

18 001630 013700 OOOOOOG 

19 001634 001420 
20 

21 
22 
23 

24 001636 016037 OOOOOOG OOOOOOG 

25 001644 016001 OOOOOOG 

26 001650 013760 OOOOOOG OOOOOOG 

27 001656 010037 OOOOOOG 

28 001662 

29 001670 004737 000002' 

30 001674 000407 
31 

32 
33 

34 001676 

35 001704 012700 OOOOOOG 

36 001710 004737 OOOOOOG 
37 

38 
39 

40 001714 012601 

41 001716 000207 
42 

43 000001 

Errors detected: 

**« Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 195 Words < 1 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:17.30 
> LP: TSMIO=DK: TSMIO/C/N: SYM 



. SBTTL MIOFRE — Free a mapped I/O data buffer. 

MIOFRE is called to free a mapped I/O data buffer. 

Inputs: 
R5 = Pointer to mapped I/O control block. 

MIOFRE: MOV R1,-(SP) 

DISABL iiiDisable interrupts 

Put control block back on free list 

MOV MIOBHD. MI*LNK<R5)> > iPut control block back on free list 
MOV R5, MIOBHD ; > i 

See if there are any requests from the system for a mapping I/O buffer 



MOV 
BEQ 



MIOSYQ, RO 
1* 



i ; ; Is there a pending system requests* 
i i j Br if not 



There is a pending request from the system for a mapping buffer. 
Start this request now. 

MOV MW*LNK<RO), MIOSYQi i i Remove wait queue element from active list 

MOV MW*IOQ<RO)> Rl i i i Get address of original I/O queue element 

MOV MIOWHD, MW*LNK<RO) i ; ; Put wait queue element back on free list 

MOV RO. MIOWHD i i i 

ENABL ; Enable interrupts 

CALL MIOCHK J Initiate the mapped I/O operation 

BR 9* 



Restart any jobs that are waiting for mapped I/O 



1*: 



9$: 



ENABL 




MOV 


#S*QMIO, RO 


CALL 


UREGO 


Finished 




MOV 


(SP)+, Rl 


RETURN 





;>iEnable interrupts 
j Get wait state code 
i Restart any waiting jobs 



END 
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C. CSW 
CHKABT 


1-29 
1-25 


6-15 
12-51 


8-21 








CHKBUF 


2-71 


2-88 


2-100# 


3-48 


1 




CLRADR 
CORUSR 


3-17 
1-26 


3-18 


3-20 


3-24 


\ 




CS*EOF 


1-29 


6-15 


8-21 




f 




CS*ERR 
DEVEND 
DEVTBL 


1-29 
2-51 
2-46 


6-15 
3-4 i# 
3-12# 


8-21 








DI*DX 


1-29 


3-38 


3-39 


3-40 






DI*DY 


1-27 


3-13 


3-14 


3-15 






DI*MM 


1-27 


3-24 


3-25 


3-26 






DI*MS 


1-27 


3-31 


3-32 


3-33 






DI*MT 


1-29 


3-17 


3-18 


3-19 






DIEARG 


1-53 








fe 




DIEMSG 

DS«ID 

DVSTAT 


1-53 

1-25 
1-25 


12-38* 
2-42 
2-41 






1 




DXREAD 


3-38 


3-59# 
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